home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb35018.lsp < prev    next >
Text File  |  1998-03-15  |  4KB  |  117 lines
  1. ;=============350.18 DOPPELLAGEREINHEIT 25E
  2.  
  3. (EAITDBL "0035018")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:35018V1 (/ P1 Wi)
  8.    (EAITDBL "0035018")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 0)
  13.    (EAITbpt EAITofzen 4 nil)
  14.    (setq P1 (getpoint))
  15.    (if (= P1 nil)(setq P1 (EAITrpt)))
  16.    (setvar "ORTHOMODE" 1)
  17.    (setvar "OSMODE" 0)
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  19.    (command EAITege (strcat EAITpfn "35018v1") P1 "" "" EAITofkei pause)
  20.    
  21.    (setq Wi (EAITbw))
  22.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 115)) 70) "" "" ""
  23.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  24.    )
  25.  
  26.    (EAITvarz2)
  27.    (princ)
  28. )
  29.  
  30.  
  31.  
  32.  
  33. (defun C:35018V2 (/ P1 Wi)
  34.    (EAITDBL "0035018")
  35.    (princ (strcat "\n\n" EAITbez1))
  36.    (EAITvari)
  37.    (EAITvars)
  38.    (setvar "ORTHOMODE" 0)
  39.    (EAITbpt EAITofzen 4 nil)
  40.    (setq P1 (getpoint))
  41.    (if (= P1 nil)(setq P1 (EAITrpt)))
  42.    (setvar "ORTHOMODE" 1)
  43.    (setvar "OSMODE" 0)
  44.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  45.    (command EAITege (strcat EAITpfn "35018v2") P1 "" "" EAITofkei pause)
  46.    
  47.    (setq Wi (EAITbw))
  48.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 115)) 70) "" "" ""
  49.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  50.    )
  51.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  52.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 90)) 80) "" "" ""
  53.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  54.    )
  55.    (EAITvarz2)
  56.    (princ)
  57. )
  58.  
  59.  
  60.  
  61. (defun C:35018S1 (/ P1 Wi)
  62.    (EAITDBL "0035018")
  63.    (princ (strcat "\n\n" EAITbez1))
  64.    (EAITvari)
  65.    (EAITvars)
  66.    (setvar "ORTHOMODE" 0)
  67.    (EAITbpt EAITofnaec 512 nil)
  68.    (setq P1 (getpoint))
  69.    (if (= P1 nil)(setq P1 (EAITrpt)))
  70.    (setvar "ORTHOMODE" 1)
  71.    (setvar "OSMODE" 0)
  72.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  73.    (command EAITege (strcat EAITpfn "35018s1") P1 "" "" EAITofkei pause)
  74.  
  75.    (setq Wi (EAITbw))
  76.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 64)) 90) "" "" ""
  77.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  78.    )
  79.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  80.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 16)) 162) "" "" ""
  81.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  82.    )
  83.  
  84.    (EAITvarz2)
  85.    (princ)
  86. )
  87.  
  88.  
  89. (defun C:35018D1 (/ P1 Wi)
  90.    (EAITDBL "0035018")
  91.    (princ (strcat "\n\n" EAITbez1))
  92.    (EAITvari)
  93.    (EAITvars)
  94.    (setvar "ORTHOMODE" 0)
  95.    (EAITbpt EAITofnaec 512 nil)
  96.    (setq P1 (getpoint))
  97.    (if (= P1 nil)(setq P1 (EAITrpt)))
  98.    (setvar "ORTHOMODE" 1)
  99.    (setvar "OSMODE" 0)
  100.    (EAITmsg "mb_mld10" "\n" "003" nil)            ;Drehwinkel
  101.    (command EAITege (strcat EAITpfn "35018d1") P1 "" "" EAITofkei pause)
  102.  
  103.    (setq Wi (EAITbw))
  104.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 245)) 75) "" "" ""
  105.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  106.    )
  107.    (EAITDBL "0035013")    ;Abstreif- und Schmiersystem 25
  108.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 260)) 158) "" "" ""
  109.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  110.    )
  111.  
  112.    (EAITvarz2)
  113.    (princ)
  114. )
  115.  
  116. (princ)
  117.